home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -serious- / programming / basic / hbasic_golded / docs / screenshot.jpg < prev    next >
Joint Photographic Experts Group Image  |  2000-03-11  |  88KB  |  726x517  |  16-bit (34,231 colors)
Labels: text | electronics | screenshot | software | display | computer icon | multimedia software | operating system | computer | web page
OCR: Programming:HBasic2/PixPrint/OS3.bas HBasic C: 015 L: 00049/00079 FOR i=0 TO countx-1 Loop to create countx gadgets POKEH VARPTR (ng(0))+ng_GadgetID*, i+1 POKEW VARPTR (ng(0))+ng_TopEdgex, G_Top* + (i MOD G_Row*) * (G_Height*+G_0ffset*) IF i MOD G_Row*= 0 THEN POKEW VARPTR (ng(0))+ng_Left Edge*, G_Left* + INT(1/G_Row*)*(G_Width*+G_Offset*) END IF READ G Text$ POKEL VARPTR (ng(0))+ng_GadgetTextx, SADD (G_Text$+CHR$(0)) TAGLIST VARPTR (Tags& (0)),_ GT Underscore&, "%,- GA_Disabled&, SGN (dis_bit* AND Gad_Disablex),_ Tag_End& Gadget_p&=CreateGadget A&. (BUTTON_KIND&, Gadget_p&, VARPTR (ng(0)), VARPTR (Tags&(0))) Dis bitx=Dis_bit <<1 NEXT i CreateButtonSet& gadgetlist_ptr& END FUNCTION Update Gadtools Gadgets SubProg *** SUB UpdateGadtools (BYVAL MyWin&, BYVAL gadgetlist_ptr&) STATIC junk& junk&=AddGList& (MyWin&, gadgetlist_ptr&, 0,-1,0) CALL RefreshGadgets (gadgetlist_ptr&, MyWin&, 0) CALL GT RefreshWindow (MyWin&, 0) END SUB struct Gadget *CreateGadgetA (ULONG kind, struct Gadget *gad, struct NewGadget *ng, struct Taglte m *taglist) OS3.bas Effects.bas L *** Help... Sources Header AmiPix.bas discstore.bas Display.bas Effects.bas Exotic.bas FileReq.bas Hist.bas Init.bas Logfiles.bas Main.bas OS3.bas ? *.(baslbasi Update